perm filename EOCT21[E,ALS] blob
sn#125798 filedate 1974-10-21 generic text, type T, neo UTF8
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
******** E **** PAGE 1 LINE 1
1) COMMENT ⊗ VALID 00230 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00019 00002 TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
1) C00021 00003 RIGHT HALF FLAGS
*** E[CSP,SYS] *** PAGE 1 LINE 1
2) COMMENT ⊗ VALID 00231 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00019 00002 E -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) C00021 00003 RIGHT HALF FLAGS
******** E **** PAGE 1 LINE 9
1) C00031 00007 ESSAY STUFF
1) C00032 00008 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
1) C00035 00009 BEGRPG
1) C00037 00010 BEG0, BEG1, BEG1A, BEG2, BEGBKP
1) C00040 00011 BEG3
1) C00043 00012 MAIN, FNF, FNF2
1) C00045 00013 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
1) C00047 00014 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
1) C00049 00015 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
1) C00051 00016 INIT, INIT0, INIT1, INI1, IOBARF
1) C00054 00017 CMDSP
1) C00056 00018 XCMDS, XDISP, MCMDS, MDISP
1) C00058 00019 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
1) C00060 00020 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
1) C00062 00021 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
1) C00064 00022 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
1) C00066 00023 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT
1) C00068 00024 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
1) C00070 00025 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
1) C00072 00026 XMARK--The `M' commands.
1) C00075 00027 DELLIN, DELPOS
1) C00077 00028 DELLP, DELL2
1) C00079 00029 DELPM, DELPM1, DELPM2, DELPM3
1) C00081 00030 DELPAG, DELPG1, ADJPG, ADJPGL
1) C00083 00031 RCOMP, RCOMP1, RCOMP2, RCOMPX
1) C00084 00032 DELETE, DELET1, ADDPAG
1) C00086 00033 APPEND, APPLUZ
1) C00088 00034 APPEN2, PMTXT, PMPAG
1) C00090 00035 INSERT
1) C00091 00036 INSER1, INSER2, INSER3, INSER4, INSER5
1) C00092 00037 INSER8, DIRADD
1) C00094 00038 INSER6, INSER7, MARK
1) C00095 00039 CONTQ
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
1) C00097 00040 ATTACH, ATTCH1, ARGCHK, ARGCHN
1) C00099 00041 ATTDO, ATTDO0, ATTDO2, ATTDO1
1) C00101 00042 ATTREP, ATTEX
1) C00103 00043 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
1) C00105 00044 ATTCOP, ATTCP1, ATTCP
1) C00106 00045 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
1) C00108 00046 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
1) C00110 00047 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
1) C00112 00048 EDGL, EDGL1, EDGL2, EDGL2A
1) C00115 00049 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
1) C00118 00050 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
1) C00121 00051 EDPUT, EDPLR
1) C00123 00052 EDPS, EDPL, EDPLUZ
1) C00124 00053 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
1) C00125 00054 CRDSP, REGCR, REGCR1, REGCR2
1) C00126 00055 CONTCR, CNTCR2, METACR, REPRST, REPRS2
1) C00128 00056 LECR, DUBLCR, DUBCR2
1) C00130 00057 INSONA, INSONE, INSNUL, INSNLP
1) C00132 00058 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
1) C00134 00059 LINCR1, LINCR, LICCR, LINALT, LINCOM
1) C00135 00060 LINSTO, LINST1
1) C00137 00061 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
1) C00138 00062 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
1) C00141 00063 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00143 00064 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00145 00065 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00149 00066 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00151 00067 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00153 00068 TYI, TYIT, TYIU
1) C00154 00069 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00160 00070 TMPWRT, BKPWRT
1) C00163 00071 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00165 00072 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00166 00073 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00168 00074 UTYPR, UTYPR1, USORRY, UFATAL
1) C00169 00075 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00172 00076 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
1) C00175 00077 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00177 00078 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00179 00079 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00180 00080 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
1) C00183 00081 FSINI, FSINI1, MORCOR
1) C00186 00082 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00187 00083 FSNEWT, FSNEWP, FSNEW
1) C00188 00084 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00190 00085 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00192 00086 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00194 00087 FSBLT, POPTJ, FSBLT1
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
1) C00195 00088 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00196 00089 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00197 00090 FSGIVE, FSGIV1, FSGIV2
1) C00198 00091 CORCHK, CRUNCH, CMPACT
1) C00200 00092 ENDSET, ENDFIX
1) C00201 00093 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00203 00094 FUCHK, MOVIT, MOVTX
1) C00204 00095 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00206 00096 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00209 00097 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00211 00098 SAVIT
1) C00213 00099 CHECK, CHECK1, CHECK2
1) C00214 00100 CHKDIR, CHKDPL
1) C00216 00101 CHKDR1, CHKD1A, CHKDR2, CDDSP, CHKDR3, CHKDR4, CHKD4A
1) C00218 00102 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00219 00103 CHKPAG, CHKPGP
1) C00220 00104 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00222 00105 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00223 00106 CHKATT, CHKNAT
1) C00224 00107 CTAB 0-37
1) C00227 00108 CTAB 40-77
1) C00229 00109 CTAB 100-137
1) C00231 00110 CTAB 140-177
1) C00233 00111 GETDIR
1) C00234 00112 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00236 00113 DIRLIN, DIRLUP, DIRDON
1) C00239 00114 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00242 00115 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00244 00116 COPCOR, COPCHK, YESCHK, COPCMD
1) C00246 00117 FORMAT, FMTOK, FMTDSP
1) C00247 00118 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00248 00119 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00250 00120 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00252 00121 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00254 00122 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) C00256 00123 CREATE, CREAT2, CTEXT
1) C00258 00124 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00260 00125 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00262 00126 RDLCR, RDLLF, NUMSTR
1) C00264 00127 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00266 00128 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00267 00129 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00269 00130 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00270 00131 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00271 00132 DIRGET, DIRGL, DGEND, DRGSET
1) C00273 00133 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00275 00134 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00277 00135 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
1) C00279 00136 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00281 00137 IDNUL, IDDON, IDDONS
1) C00283 00138 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00284 00139 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00286 00140 DISPLAY DATA STORAGE
1) C00287 00141 MORE DISPLAY STORAGE
1) C00288 00142 HEADERS & TRAILERS
1) C00289 00143 DPYINI, DPYCHK
1) C00291 00144 DPYI2, NODPY, WIPE, IWIPE
1) C00293 00145 SETSCR, NMVARR, MOVARR, SETARR
1) C00295 00146 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00297 00147 DISP, DISP0, DISP1, DISP2
1) C00299 00148 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00301 00149 DISPAT, DISPAX
1) C00302 00150 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00304 00151 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00305 00152 IIIARR, IIIAR2, IIIAR3
1) C00307 00153 LESET, LEADJ, LECLR
1) C00308 00154 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00310 00155 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00311 00156 DDISP, DDISP2
1) C00312 00157 DOARR, DOAR2, OFFARR, ONARR
1) C00313 00158 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00315 00159 DSPSAT, DSPSAX
1) C00316 00160 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00318 00161 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00320 00162 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00321 00163 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00323 00164 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00324 00165 WRPX3, WRPX4
1) C00325 00166 WRPOK, WRTIT, WRT0
1) C00326 00167 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00328 00168 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00330 00169 WRPM, BTAB2
1) C00332 00170 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00333 00171 TV, RSYS, RUN, RUN1
1) C00336 00172 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00337 00173 SEARCH ROUTINES
1) C00338 00174 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00340 00175 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00342 00176 FINDIT, FOUND, FNDMOV, FNDERR
1) C00344 00177 FIND
1) C00346 00178 DIRSRC, DFERR, SRCDF, SDFCR
1) C00348 00179 SSET, SSET2
1) C00349 00180 SCOMP, SCOMPX, SCOMPR
1) C00351 00181 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00353 00182 SPARSE
1) C00354 00183 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
1) C00356 00184 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00358 00185 SSCLP, SSCDSP
1) C00360 00186 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00362 00187 SGNOT
1) C00363 00188 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00365 00189 SBBRCH, SBBR2
1) C00366 00190 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00367 00191 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00369 00192 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00371 00193 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00373 00194 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00374 00195 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00376 00196 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00378 00197 SCCOM, SCCNOT
1) C00379 00198 SCCBIT
1) C00380 00199 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00382 00200 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00384 00201 SCGEN
1) C00386 00202 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00388 00203 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00390 00204 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00392 00205 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00394 00206 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00396 00207 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00398 00208 SRCPAG, SRCPG1
1) C00400 00209 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00401 00210 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00403 00211 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00404 00212 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00405 00213 SCALL, SRCHX, SRCHLX
1) C00406 00214 SCNBAK, SCNBKL
1) C00408 00215 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00410 00216 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00411 00217 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00412 00218 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00416 00219 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00418 00220 JUSMAR
1) C00423 00221 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00425 00222 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00428 00223 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00432 00224 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00434 00225 JDFIN
1) C00436 00226 JDFIN2, JSET, JSET2
1) C00439 00227 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00441 00228 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00442 00229 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00444 00230
1) C00445 ENDMK
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
1) C⊗;
1) ;TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
1) ESSAY←←0 ;NON-ZERO MEANS ASSEMBLE ESSAY
1) IFE ESSAY<TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II>
1) IFN ESSAY<TITLE ESSAY>
1) COMMENT ⊗ TO PUT UP A NEW E WITH AN UPPER SEGMENT, USE THE COMMANDS:
*** E[CSP,SYS] *** PAGE 1 LINE 9
2) C00034 00007 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
2) C00037 00008 BEGRPG
2) C00039 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP
2) C00043 00010 BEG3
2) C00046 00011 MAIN, FNF, FNF2
2) C00048 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
2) C00050 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
2) C00052 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
2) C00054 00015 INIT, INIT0, INIT1, INI1, IOBARF
2) C00058 00016 CMDSP
2) C00060 00017 XCMDS, XDISP, MCMDS, MDISP
2) C00062 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
2) C00064 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
2) C00066 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
2) C00068 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
2) C00070 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) C00073 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
2) C00076 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
2) C00078 00025 XMARK--The `M' commands.
2) C00081 00026 DELLIN, DELPOS
2) C00083 00027 DELLP, DELL2
2) C00085 00028 DELPM, DELPM1, DELPM2, DELPM3
2) C00087 00029 DELPAG, DELPG1, ADJPG, ADJPGL
2) C00089 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
2) C00090 00031 DELETE, DELET1, ADDPAG
2) C00092 00032 APPEND, APPLUZ
2) C00094 00033 APPEN2, PMTXT, PMPAG
2) C00096 00034 INSERT
2) C00097 00035 INSER1, INSER2, INSER3, INSER4, INSER5
2) C00098 00036 INSER8, DIRADD
2) C00100 00037 INSER6, INSER7, MARK
2) C00101 00038 CONTQ
2) C00103 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
2) C00105 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
2) C00107 00041 ATTREP, ATTEX
2) C00109 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
2) C00111 00043 ATTCOP, ATTCP1, ATTCP
2) C00112 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
2) C00114 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
2) C00116 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
2) C00118 00047 EDGL, EDGL1, EDGL2, EDGL2A
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
2) C00121 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
2) C00124 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
2) C00127 00050 EDPUT, EDPLR
2) C00129 00051 EDPS, EDPL, EDPLUZ
2) C00130 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
2) C00131 00053 CRDSP, REGCR, REGCR1, REGCR2
2) C00132 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
2) C00134 00055 LECR, DUBLCR, DUBCR2
2) C00136 00056 INSONA, INSONE, INSNUL, INSNLP
2) C00138 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
2) C00140 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
2) C00141 00059 LINSTO, LINST1
2) C00143 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
2) C00144 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
2) C00147 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
2) C00149 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
2) C00151 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00155 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00157 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00159 00067 TYI, TYIT, TYIU
2) C00160 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00166 00069 TMPWRT, BKPWRT
2) C00169 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00171 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00172 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
2) C00174 00073 UTYPR, UTYPR1, USORRY, UFATAL
2) C00175 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00178 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
2) C00181 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00183 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00185 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00186 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
2) C00189 00080 FSINI, FSINI1, MORCOR
2) C00192 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00193 00082 FSNEWT, FSNEWP, FSNEW
2) C00194 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00196 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00198 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00200 00086 FSBLT, POPTJ, FSBLT1
2) C00201 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00202 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00203 00089 FSGIVE, FSGIV1, FSGIV2
2) C00204 00090 CORCHK, CRUNCH, CMPACT
2) C00206 00091 ENDSET, ENDFIX
2) C00207 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00209 00093 FUCHK, MOVIT, MOVTX
2) C00210 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00212 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
2) C00215 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00217 00097 SAVIT
2) C00219 00098 CHECK, CHECK1, CHECK2
2) C00220 00099 CHKDIR, CHKDPL
2) C00222 00100 CHKDR1, CHKD1A, CHKDR2, CDDSP, CHKDR3, CHKDR4, CHKD4A
2) C00224 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00225 00102 CHKPAG, CHKPGP
2) C00226 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00228 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00229 00105 CHKATT, CHKNAT
2) C00230 00106 CTAB 0-37
2) C00233 00107 CTAB 40-77
2) C00235 00108 CTAB 100-137
2) C00237 00109 CTAB 140-177
2) C00239 00110 GETDIR
2) C00240 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00242 00112 DIRLIN, DIRLUP, DIRDON
2) C00245 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00248 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00250 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00252 00116 FORMAT, FMTOK, FMTDSP
2) C00253 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00254 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00256 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00258 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00260 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
2) C00262 00122 CREATE, CREAT2, CTEXT
2) C00264 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00266 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00268 00125 RDLCR, RDLLF, NUMSTR
2) C00270 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00272 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00273 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00275 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00276 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00277 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00279 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00281 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00283 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00285 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00287 00136 IDNUL, IDDON, IDDONS
2) C00289 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00290 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00292 00139 DISPLAY DATA STORAGE
2) C00293 00140 MORE DISPLAY STORAGE
2) C00294 00141 HEADERS & TRAILERS
2) C00295 00142 DPYINI, DPYCHK
2) C00297 00143 DPYI2, NODPY, WIPE, IWIPE
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
2) C00299 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00301 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00303 00146 DISP, DISP0, DISP1, DISP2
2) C00305 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00307 00148 DISPAT, DISPAX
2) C00308 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00310 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00311 00151 IIIARR, IIIAR2, IIIAR3
2) C00313 00152 LESET, LEADJ, LECLR
2) C00314 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00316 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00317 00155 DDISP, DDISP2
2) C00318 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00319 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00321 00158 DSPSAT, DSPSAX
2) C00322 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00324 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00326 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00327 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00329 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00330 00164 WRPX3, WRPX4
2) C00331 00165 WRPOK, WRTIT, WRT0
2) C00332 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00334 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00336 00168 WRPM, BTAB2
2) C00338 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00339 00170 TV, RSYS, RUN, RUN1
2) C00342 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00343 00172 SEARCH ROUTINES
2) C00344 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00346 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00348 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00350 00176 FIND
2) C00352 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00354 00178 SSET, SSET2
2) C00355 00179 SCOMP, SCOMPX, SCOMPR
2) C00357 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00359 00181 SPARSE
2) C00360 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00362 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00364 00184 SSCLP, SSCDSP
2) C00366 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00368 00186 SGNOT
2) C00369 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00371 00188 SBBRCH, SBBR2
2) C00372 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00373 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00375 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
2) C00377 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00379 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00380 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00382 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00384 00196 SCCOM, SCCNOT
2) C00385 00197 SCCBIT
2) C00386 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00388 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00390 00200 SCGEN
2) C00392 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00394 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00396 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00398 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00400 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00402 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00404 00207 SRCPAG, SRCPG1
2) C00406 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00407 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00409 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00410 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00411 00212 SCALL, SRCHX, SRCHLX
2) C00412 00213 SCNBAK, SCNBKL
2) C00414 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00416 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00417 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00418 00217
2) C00423 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00425 00219 JUSMAR
2) C00431 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00433 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00436 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00440 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00442 00224 JDFIN
2) C00444 00225 JDFIN2, JSET, JSET2
2) C00446 00226 INDENT,ALINE,CENTER,
2) C00452 00227 CENT,ALINE:
2) C00455 00228 MACRO FSEE0SUORQGE - MFSCLR,GETMFS,FREMFS
2) C00457 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00458 00230 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00460 00231
2) C00461 ENDMK
2) C⊗;
2) ;E -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) ESSFLG←←0 ;NON-ZERO MEANS ASSEMBLE ESSAY
2) IFE ESSFLG<TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) PRINTS / You are assembling ETV, the Stanford Display Editor.
2) />
2) IFN ESSFLG<TITLE ESSAY
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 1,1
2) PRINTS / You are assembling Essay, not E
2) />
2) DEFINE ESSAY <IFN ESSFLG>
2) DEFINE NOESS <IFE ESSFLG>
2) COMMENT ⊗ TO PUT UP A NEW E WITH AN UPPER SEGMENT, USE THE COMMANDS:
******** E **** PAGE 2 LINE 33
1) IFNDEF PURESW<IFN ESSAY<PURESW←←0>> ;ESSAY IS NOT PURE, YET
1) IFNDEF PURESW<PURESW←←1> ;DEFAULT TO SHARABLE PURE UPPER SEGMENT
*** E[CSP,SYS] *** PAGE 2 LINE 39
2) IFNDEF PURESW<PURESW←←1> ;DEFAULT TO SHARABLE PURE UPPER SEGMENT
******** E **** PAGE 7 LINE 1
1) ;ESSAY STUFF
1) IFN ESSAY,<
1) IMPURE
1) ;ESSAY PDL RELATED DEFS
1) NEPESC←←4 ;NUMBER OF ENTRIES PER ESSAY CALL
1) ;FILE NAME ONE [COMPACT THIS ONCE IT WORKS PROPERLY]
1) ;FILE NAME TWO
1) ;PAGE NUMBER
*** E[CSP,SYS] *** PAGE 6 LINE 76
2) ;********* BEG OF ESSAY DEFS *********
2) ESSAY,<
2) IMPURE
2) ;ESSAY PDL RELATED DEFS
2) NEPESC←←5 ;NUMBER OF ENTRIES PER ESSAY CALL
2) ;FILE NAME ONE [COMPACT THIS ONCE IT WORKS PROPERLY]
2) ;FILE NAME TWO
2) ;PPN
2) ;PAGE NUMBER
******** E **** PAGE 7 LINE 16
1) ESYPNP: 0 ;NUMBER OF THINGS ON STACK
1) PURE
1) >;IFN ESSAY
*** E[CSP,SYS] *** PAGE 6 LINE 92
2) ESATSV: 0 ;SET TO NON ZERO WHEN INIT SHOULD SAVE ATT BUF
2) ESYPNP: 0 ;NUMBER OF THINGS ON STACK
2) PURE
2) ESPUSH: MOVEI A,NRESSC ;THIS IS THE NUMBER OF CALLS THERE IS ROOM FOR
2) CAMGE A,ESYPNP ;SKIP IF THERE ARE FEWER THAN MAX ENTRIES ON STACK
2) JRST [ OUTSTR [ASCIZ /
2) You already have filled the Essay stack./]
2) POPJ P,]
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 7,6
2) PUSHJ P,FINISH ;SAVE HIS EDITS
2) AOS ESYPNP ;TELL THE WORLD ABOUT THIS ENTRY WE ARE ADDING
2) MOVE A,ESYPDP ;ESSAY PDL POINTER
2) PUSH A,EDFIL ;I HOPE THIS IS THE FIRST FILE NAME I AM PUSHING
2) PUSH A,EDFIL+1 ;THIS SHOULD BE FILE NAME TWO
2) PUSH A,EDFIL+3 ;THIS SHOULD BE THE PPN
2) PUSH A,CURPAG ;I HOPE THIS IS THE PAGE NUMBER
2) PUSH A,[0] ;DONT KNOW WHERE TO FIND THE LINE NUMBER YET
2) MOVEM A,ESYPDP ;SAVE THE PDL POINTER
2) CLRBFI
2) TRNE F,ATTMOD ;DIRECT IF IN ATTACH MODE
2) SETOM ESATSV ;THIS WILL CAUSE INIT TO SPARE THE ATTACH BUFFER
2) JSP P,INIT
2) PUSHJ P,RSCAN
2) PTWR1W [0↔14120] ;DO A <BREAK>P
2) JRST BEG0A ;SAME AS BEG0, BUT WE GET TO INSERT A BRK P AFTER RSCAN
2) ESYPOP: PUSHJ P,FINISH ;SAVE AWAY HIS DOIN'S
2) SOS ESYPNP ;NUMBER OF THINGS ON STACK
2) CLRBFI
2) JSP P,INIT
2) MOVE A,ESYPDP ;GET THE PDL POINTER
2) POP A,B ;THE LINE NUMBER
2) PUSHJ P,E6TCFB ;PUT THE SIXBIT OF NUMBER IN B INTO C
2) MOVEM D,SLINE#
2) POP A,B ;THE PAGE NUMBER
2) PUSHJ P,E6TCFB ;PUT THE SIXBIT IN C
2) MOVEM D,SPAGE#
2) POP A,EDFIL+3 ;THIS IS THE PPN
2) POP A,B ;THIS IS FILE NAME TWO
2) HLLZM B,EDFIL+1 ;PUT IT AWAY
2) POP A,EDFIL ;THIS IS THE FILE NAME
2) MOVEM A,ESYPDP ;SAVE THE NEW PUSH DOWN POINTER
2) PTWR1W [0↔15] ;THIS IS DIRTY POOL
2) JRST BEGSY3
2) ESINIT: MOVE A,[-ESPDLL,,ESYPDL-1] ;THIS IS THE ESSAY PDL POINTER
2) MOVEM A,ESYPDP ;THE ESSAY PDL POINTER IS KEPT HERE WHEN USED
2) SETZM ESYPNP ;CELL CONTAINS NUMBER OF CALLS ON STACK
2) POPJ P,
2) E6TCFB: MOVE E,[440600,,D] ;BE PUTTING SIXBIT INTO D
2) E6TC01: IDIVI B,=10
2) HRLM C,(P)
2) SKIPE B
2) PUSHJ P,E6TC01
2) LDB C,[220600,,(P)]
2) TRC C,=48
2) SUBI C,40 ;MAKE SIXBIT OUT OF THIS
2) IDPB C,E
2) POPJ P,
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 7,6
2)
2) >;IFN ESSAY
******** E **** PAGE 9 LINE 14
1) MOVE T,EPDL2 ;GET COMMAND NAME
*** E[CSP,SYS] *** PAGE 7 LINE 10
2) ESSAY,< PUSHJ P,ESINIT> ;ESSAY VARS INIT, BUT ONLY INIT ONCE
2) MOVE T,EPDL2 ;GET COMMAND NAME
******** E **** PAGE 9 LINE 14
1) PUSHJ P,TMPRED ;TRY TO READ TMPCORE FILE
*** E[CSP,SYS] *** PAGE 7 LINE 32
2) ESSAY,< PUSHJ P,ESINIT> ;INIT ESSAY VARS, BUT ONLY IN SELECTED PLACES
2) PUSHJ P,TMPRED ;TRY TO READ TMPCORE FILE
******** E **** PAGE 9 LINE 14
1) HRRZ T,RPGLIN
*** E[CSP,SYS] *** PAGE 8 LINE 8
2) ESSAY,< PUSHJ P,ESINIT> ;ESSAY INIT, ONLY IN SELECTED PLACES
2) HRRZ T,RPGLIN
******** E **** PAGE 10 LINE 4
1) PUSHJ P,RSCAN ;RESCAN TTY
*** E[CSP,SYS] *** PAGE 9 LINE 4
2) ESSAY,< PUSHJ P,ESINIT> ;ESSAY INIT
2) PUSHJ P,RSCAN ;RESCAN TTY
******** E **** PAGE 16 LINE 12
1) MOVEI
1) MOVEI 17,1
1) BLT 17,17 ;CLEAR REAL AC'S
*** E[CSP,SYS] *** PAGE 15 LINE 12
2) NOESS,< MOVEI
2) MOVEI 17,1>;NOESS
2) ESSAY,<
2) IFN F,<.FATAL F is not AC 0, you should fix that.
2) > SKIPE ESATSV ;DIRECT IF THERE IS AN ATTACH BUF, AND FLAG TO SAVE
2) JRST [ MOVEI F,ATTMOD ;CLEAR ALL THE FLAGS, EXCEPT ATTMOD
2) SETZM ESATSV ;DONT DO THAT AGAIN, CLOD
2) MOVE 17,[1,,2] ;FROM 1 - 17
2) MOVEI 1, ;CLEAR FROM 1, LEAVE F UNZEROED
2) JRST .+1]
2) MOVEI 17,1
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 16,15
2) >;ESSAY
2) BLT 17,17 ;CLEAR REAL AC'S
******** E **** PAGE 16 LINE 24
1) IFN ESSAY,<
1) MOVE A,[-ESPDLL,,ESYPDL-1] ;THIS IS THE ESSAY PDL POINTER
1) MOVEM A,ESYPDP ;THE ESSAY PDL POINTER IS KEPT HERE WHEN USED
1) SETZM ESYPNP ;CELL CONTAINS NUMBER OF CALLS ON STACK
1) >;IFN ESSAY
1) MOVE A,[ZVARS,,ZVARS+1]
1) BLT A,EVARS
1) SETOM MARKS
*** E[CSP,SYS] *** PAGE 15 LINE 27
2) MOVE A,[ZVARS,,ZVARS+1]
2) BLT A,EVARS
2) ESSAY,< EXCH ATTBUF> ;DON'T LOOSE THIS VALUABLE DATUM
2) SETOM MARKS
******** E **** PAGE 16 LINE 27
1) PUSHJ P,MFSCLR ;Init. macro free stg.
*** E[CSP,SYS] *** PAGE 15 LINE 34
2) ESSAY,< EXCH ATTBUF> ;RETURN THIS DATUM, RE ZERO AC
2) PUSHJ P,MFSCLR ;Init. macro free stg.
******** E **** PAGE 18 LINE 1
1) ;XCMDS, XDISP, MCMDS, MDISP
*** E[CSP,SYS] *** PAGE 16 LINE 58
2) ESSAY,< CC(N) ESPUSH>
2) ;XCMDS, XDISP, MCMDS, MDISP
******** E **** PAGE 18 LINE 8
1) DEFINE XCMD{FOR X IN (<APPEND,NOATT>,CANCEL,<CLOSE,,CLOSIT>,<DDTGO,NOEDIT!DOEDIT>
1) ,<DELETE,NOATT!NORDO>,<DIRED,NOATT,GODRD>,DPYALWAYS,DPYSKIP,<DRAW,NOEDIT!DOEDIT>
1) ,FIND,<GORPG,NOATT>,<INDENT,SACMD>
1) ,<INSERT,↑INSCMD::NOATT!NORDO>,<JFILL,SACMD>,<JLEFT,SACMD>
*** E[CSP,SYS] *** PAGE 17 LINE 8
2) DEFINE XCMD{FOR X IN (<APPEND,NOATT>,CANCEL,<CENTER,SACMD>
2) ,<CLOSE,,CLOSIT>,<DDTGO,NOEDIT!DOEDIT>
2) ,<DELETE,NOATT!NORDO>,<DIRED,NOATT,GODRD>,DPYALWAYS,DPYSKIP,<DRAW,NOEDIT!DOEDIT>
2) ,<DRD,NOATT,GODRD>,FIND,<GORPG,NOATT>,<INDENT,SACMD>
2) ,<INSERT,↑INSCMD::NOATT!NORDO>,<JFILL,SACMD>,<JLEFT,SACMD>
******** E **** PAGE 23 LINE 1
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 23,22
1) ;GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT
1) GETOUT: TRZE F,ATTMOD
1) JRST ATTEX
1) PUSHJ P,FINISH
1) GETOU1: CALLI
*** E[CSP,SYS] *** PAGE 22 LINE 1
2) ;GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) GETOUT: TRZE F,ATTMOD
2) JRST ATTEX
2) NOESS, <PUSHJ P,FINISH>
2) ESSAY,< ;αβE MEANS POP, UNLESS ABOUT TO OVER-POP, IN WHICH CASE, EXIT
2) SKIPE ESYPNP ;SKIP IF THERE ARE NO STATES ON THE PDL TO RETURN TO
2) JRST ESYPOP ;POP, RETURNING TO ANOTHER FILE
2) PUSHJ P,FINISH
2) >;IFN ESSAY
2) GETOU1: CALLI
******** E **** PAGE 24 LINE 52
1) FORMF: CAIN B,2
1) JRST FINSRT
1) MOVE A,BOTWIN
1) MOVE T,CURPAG
*** E[CSP,SYS] *** PAGE 23 LINE 52
2) FORMF: CAIN B,2 ;The form feed command code.
2) JRST FINSRT ;Trying to insert a FORM.
2) TRNE F,REL ;Is there a relative argument?
2) JRST FORMF1 ;Yes.
2) FORMF3: MOVE A,BOTWIN ;The usual foreward command case.
2) MOVE T,CURPAG
******** E **** PAGE 24 LINE 62
1) FINSRT: MOVE D,INSCMD
*** E[CSP,SYS] *** PAGE 23 LINE 64
2) FORMF1: TRNN F,NEG
2) JRST FORMF3 ;If + handle as usual
2) MOVE A,TOPWIN
2) MOVE T,CURPAG
2) CAILE T,1
2) CAILE A,1
2) JRST FORMF2
2) MOVNI A,1
2) PUSHJ P,NEWPG
2) TRZ F,NEG!REL
2) MOVE A,LINES ;To get to the bottom of the page.
2) SOJA A,WIND1
2) FORMF2: MOVNI A,1
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 24,23
2) JRST WIND
2) FINSRT: MOVE D,INSCMD
******** E **** PAGE 109 LINE 18
1) LETF!ED,,7(DSP) ;N
1) LETF!ED,,7(DSP) ;O
*** E[CSP,SYS] *** PAGE 108 LINE 18
2) NOESS,< LETF!ED,,7(DSP) > ;N
2) ESSAY,< LETF!ED,,%N(DSP) > ;N
2) LETF!ED,,7(DSP) ;O
******** E **** PAGE 110 LINE 18
1) LETF!LT2F!ED,,7(DSP) ;n
1) LETF!LT2F!ED,,7(DSP) ;o
*** E[CSP,SYS] *** PAGE 109 LINE 18
2) ESSAY,< LETF!LT2F!ED,,%N(DSP) > ;n
2) NOESS,< LETF!LT2F!ED,,7(DSP) > ;n
2) LETF!LT2F!ED,,7(DSP) ;o
******** E **** PAGE 218 LINE 6
1) TRNE F,ATTMOD!ARG ;Are we in attach mode or has an argument been given?
*** E[CSP,SYS] *** PAGE 217 LINE 6
2) TRZ F,INDEN ;To prevent trouble
2) TRNE F,ATTMOD!ARG ;Are we in attach mode or has an argument been given?
******** E **** PAGE 218 LINE 9
1) MOVNI A,7 ;To back up a reasonable distance.
1) PUSHJ P,WIND ;This does all that should be necessary.
*** E[CSP,SYS] *** PAGE 217 LINE 10
2) MOVNI A,20 ;To back up a reasonable distance.
2) PUSHJ P,WIND ;This does all that should be necessary.
******** E **** PAGE 218 LINE 14
1) TRNE F,ATTMOD ;Are we in ATTACH mode?
1) SKIPA E,[JATAB] ; Yes so put [JATAB] in E.
*** E[CSP,SYS] *** PAGE 217 LINE 14
2) PUSHJ P,JSETUP ;Set up initial data input conditions.
2) JRST JFIX
2) JFCL
2) JUSTL0: ILDB C,A
2) CAIE C,40
2) JRST JUSTL1+1 ;Yes, into the middle of GETCH2 macro.
2) JRST JUSTL0 ;Eat it up.
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 218,217
2) ;Put no code in here as JCRTB:+1 contains equivalent of a JRST JUSTL1-4.
2) JUSTL1: GETCH2 H,A ;Next char from text, to PUSHJ P, DUMP on
2) ; nul, to JUSTCR on CR, on BS to JUSTL1,
2) CAIN C,40 ; to JTAB on TAB, and halt otherwise.
2) JRST JUSTSP ;To JUSTSP on space.
2) JUSTLX: CAIN C,11
2) JRST JUSTTB ;To JUSTTB on TAB.
2) JUMPGE B,JUSTL3 ;To JUSTL3 if count ≥ JSIZE.
2) JUSTL2: IDPB C,D ;Put char into BUF.
2) AOBJN B,JUSTL1 ;Loop
2) JRST JUSTL1
2) JUSTL3: IDPB C,D ;Put last char into BUF.
2) SKIPL JWPT ;Are we allowed more?
2) PUSHJ P,JDUMP ;No, time to dump BUF
2) JRST JUSTL1 ;Yes
2) ;This has been made a separate subroutine
2) ; so that INSERT, CENTER and LEFT can use it.
2) JSETUP: TRNE F,ATTMOD ;Are we in ATTACH mode?
2) SKIPA E,[JATAB] ; Yes so put [JATAB] in E.
******** E **** PAGE 218 LINE 40
1) JRST JFIX
1) JFCL
1) JUSTL0: ILDB C,A
1) CAIE C,40
1) JRST JUSTL1+1 ;Yes, into the middle of GETCH2 macro.
1) JRST JUSTL0 ;Eat it up.
1) ;Put no code in here as JCRTB:+1 contains equivalent of a JRST JUSTL1-4.
1) JUSTL1: GETCH2 H,A ;Next char from text, to PUSHJ P, DUMP on
1) ; nul, to JUSTCR on CR, on BS to JUSTL1,
1) CAIN C,40 ; to JTAB on TAB, and halt otherwise.
1) JRST JUSTSP ;To JUSTSP on space.
1) JUSTLX: CAIN C,11
1) JRST JUSTTB ;To JUSTTB on TAB.
1) JUMPGE B,JUSTL3 ;To JUSTL3 if count ≥ JSIZE.
1) JUSTL2: IDPB C,D ;Put char into BUF.
1) AOBJN B,JUSTL1 ;Loop
1) JRST JUSTL1
1) JUSTL3: IDPB C,D ;Put last char into BUF.
1) SKIPL JWPT ;Are we allowed more?
1) PUSHJ P,JDUMP ;No, time to dump BUF
1) JRST JUSTL1 ;Yes
1) ;DSP is set to JDISP in JSET2 (also set to JDISP2 in JDMP2) and used in
*** E[CSP,SYS] *** PAGE 217 LINE 66
2) POPJ P,
2) ;DSP is set to JDISP in JSET2 (also set to JDISP2 in JDMP2) and used in
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 218,217
******** E **** PAGE 219 LINE 39
1) ; JRST JUSTL0
1) JRST JUSTL1
*** E[CSP,SYS] *** PAGE 218 LINE 39
2) JRST JUSTL1
******** E **** PAGE 220 LINE 16
1) MOVNI TT,3 ;Allow only 3 characters.
*** E[CSP,SYS] *** PAGE 219 LINE 16
2) SETZM ILMAR
2) SETZM IRMAR
2) MOVNI TT,3 ;Allow only 3 characters.
******** E **** PAGE 220 LINE 40
1) JUSMA4: CAIN C,175
*** E[CSP,SYS] *** PAGE 219 LINE 41
2) JUSMA9: SKIPN PMAR
2) JRST JUSTM6
2) SKIPN LMAR
2) JRST JUSM6A
2) SKIPN RMAR
2) JRST JUSM6B
2) JRST JUSTM7
2) JUSMA4: CAIN C,175
******** E **** PAGE 220 LINE 48
1) JUSMA5: SKIPE PMAR
1) JRST JUSTM3
1) CAIN C,"+"
1) AOJA E,JUSMAX
*** E[CSP,SYS] *** PAGE 219 LINE 55
2) INDMA5: SKIPE ILMAR
2) JRST INDM3
2) CAIN C,"+"
2) AOJA E,JUSMAX
******** E **** PAGE 220 LINE 52
1) ;Note that any non-number non-special char can be used as a separater.
*** E[CSP,SYS] *** PAGE 219 LINE 61
2) SKIPGE E
2) MOVNS A
2) SKIPN A
2) MOVE A,ILMARS
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 220,219
2) MOVEM A,ILMAR
2) JRST JUSMAX
2) INDM3: SKIPE IRMAR
2) JRST INDM4 ;We should never get here
2) SKIPN A
2) MOVE A,IRMARS
2) MOVEM A,IRMAR
2) CAIE B,3
2) JRST JUSTM8
2) MOVE A,ILMAR
2) MOVEM A,ILMARS
2) MOVE A,IRMAR
2) MOVEM A,IRMARS
2) JRST JUSTM8
2)
2) INDM4: MOVE A,ILMARS
2) MOVEM A,ILMAR
2) MOVE A,IRMARS
2) MOVEM A,IRMAR
2) JRST JUSTM8
2) JUSMA5: TLNE F,INDEN
2) JRST INDMA5
2) CAIN C,15
2) JRST JUSMA9
2) SKIPE PMAR
2) JRST JUSTM3
2) CAIN C,"+"
2) AOJA E,JUSMAX
2) CAIN C,"-"
2) SOJA E,JUSMAX
2) ;Note that any non-number non-special char can be used as a separater.
******** E **** PAGE 220 LINE 90
1) JUSTM6: MOVE A,PMARS
1) MOVEM A,PMAR
1) MOVE A,LMARS
1) MOVEM A,LMAR
1) MOVE A,RMARS
1) MOVEM A,RMAR
*** E[CSP,SYS] *** PAGE 219 LINE 135
2) JUSTM6: TLNE F,INDEN
2) JRST INDM4
2) MOVE A,PMARS
2) MOVEM A,PMAR
2) JUSM6A: MOVE A,LMARS
2) MOVEM A,LMAR
2) JUSM6B: MOVE A,RMARS
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 220,219
2) MOVEM A,RMAR
******** E **** PAGE 221 LINE 58
1) PURE
*** E[CSP,SYS] *** PAGE 220 LINE 58
2) DTBCNT: 0
2) DSPCNT: 0
2) ILMAR: 1
2) IRMAR: =120
2) ILMARS: 1 ;Sticky indent parameter
2) IRMARS: =120 ;Sticky right indent limit
2) PURE
******** E **** PAGE 226 LINE 9
1) JSET2: ;PUSHJ P,JULMAR
1) MOVNM T,TMPMAR ;We arrive here with - the correct margin in T
1) ADD T,RMAR
1) ADDI T,1
1) MOVEM T,JSIZE#
1) MOVSI T,(T)
1) SUB B,T
1) SETZM JSCNT#
1) MOVSI H,LSPC
1) MOVEI DSP,JDISP
1) POPJ P,
1) JCMLIN: PUSHJ P,JFLUSH
*** E[CSP,SYS] *** PAGE 225 LINE 9
2) JSET2: TRNE F,INDEN!CEN!ALIN ;Test for non-filling flags
2) JRST JSET5
2) JSET3: MOVNM T,TMPMAR ;We arrive here with - the correct margin in T
2) ADD T,RMAR
2) JSET4: ADDI T,1
2) MOVEM T,JSIZE#
2) MOVSI T,(T)
2) SUB B,T ;Used only for JUST and JFILL
2) SETZM JSCNT#
2) MOVSI H,LSPC
2) MOVEI DSP,JDISP ;Used only for JUST and JFILL
2) POPJ P,
2) JSET5: MOVNI T,-1
2) TRNE F,CEN ;Is this a CENTER case
2) JRST JSET3 ;Yes
2) ADD T,=118
2) JRST JSET4
2) JCMLIN: PUSHJ P,JFLUSH
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 226,225
******** E **** PAGE 226 LINE 29
1) JLEF←←2000 ;JLEFT FLAG
1) INDEN←←4000 ;INDENT FLAG
1) INDENT: SORRY XINDENT has not been implemented.
1) POPJ P,
1) TLNE F,INDEN!JLEF ;Is this a JLEFT or a INDENT?
1) TLNE F,JLEF ;Is it a JLEFT
1) JRST LEFT ;Yes
1) SETZM DTBCNT# ;To count leading TABS
1) SETZM DSPCNT# ;To count leading spaces
1) DENT: GETCH2 H,A ;Get char here as long as SP or TB
1) CAIN C,40
1) JRST DENTSP
1) CAIN C,11
1) JRST DENTTB
1) JUMPGE B,DENT2
1) DENT1: GETCH2 H,A
1) IDPB C,D
1) AOBJN B,DENT1
1) DENT2: PUSHJ P,JDUMP
1) JRST DENT
1) DENTSP: AOS DSPCNT
1) IDPB C,D
*** E[CSP,SYS] *** PAGE 226 LINE 1
2) ;INDENT,ALINE,CENTER,
2) JLEF←←2000 ;JLEFT FLAG
2) INDEN←←4000 ;INDENT FLAG
2) CEN←←10000 ;CENTER FLAG
2) INDENT: SORRY XINDENT has not been implemented.
2) POPJ P,
2) TRO F,INDEN
2) PUSHJ P,JUSMAR
2) PUSHJ P,JSETUP ;To set up initial conditions.
2) MOVEI DSP,NDDSP1 ;Set for 1st special dispatch table.
2) MOVSI H,LSPC ;Set for special character flag.
2) DENT0: SETZM DTBCNT ;To count leading TABS
2) SETZM DSPCNT ;To count leading spaces
2) SETZB B,JWCOL
2) MOVE T,IRMAR ;Get right margin
2) MOVSI T,(T)
2) SUB B,T ;To not allow right margin to be exceeded.
2) DENT: GETCH2 H,A ;Get char here as long as SP or TB
2) CAIN C,40
2) JRST NDSP1 ;Handle SP
2) CAIN C,11
2) JRST NDTAB1 ;Handle TABs
2) MOVEI DSP,NDDSP2 ;Now for the second dispatch table.
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 226,226
2) DENT1: GETCH2 H,A ;Get real text here.
2) IDPB C,D
2) AOBJN B,DENT1 ;Continue hopefully until end of line.
2) NDCR1: MOVEI T,0
2) IDPB T,D ;Terminate with a null
2) DENT2: MOVE T,DTBCNT ;Compute indentation
2) ASH T,3
2) ADD T,DSPCNT
2) HRRZ C,B
2) ADD C,T
2) ADD T,INDNTX# ;Add amount to be indented.
2) CAMG C,IRMAR
2) JRST DENT3
2) MOVE T,IRMAR
2) SUBI T,1
2) SUB T,C ;Correct to prevent exceeding margin.
2) DENT3: MOVE C,T
2) ASH C,-3
2) MOVEM C,DTBCNT ;Corrected number of TAB's.
2) ANDI T,7
2) MOVEM T,DSPCNT ;Corrected number of SP's.
2) MOVE D,[40700,,BUF]
2) MOVE A,[40700,,BUF2]
2) MOVEI B,0
2) MOVE T,DTBCNT
2) JUMPE T,.+5
2) MOVE C,11
2) IDPB C,A
2) AOS B
2) SOJG T,.-2
2) MOVE T,DSPCNT
2) JUMPE T,.+5
2) MOVE C,40
2) IDPB C,A
2) AOS B
2) SOJG T,.-2
2) DENT4: ILDB C,D
2) CAIN C,0
2) JRST DENT5
2) IDPB C,A
2) AOJA B,DENT4
2) DENT5: MOVEI C,15
2) IDPB C,A
2) MOVEI C,12
2) IDPB C,A
2) MOVEI C,0
2) IDPB C,A
2) TLNE A,760000
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 226,226
2) JRST .-2 ;Pad out the word with nuls.
2) AOS @JLPTR(E)
2) ADDI G,2(B)
2) ADDM G,@JCPTR(E)
2) LSH G,11
2) IORI G,(B)
2) MOVEI B,-BUF2+1+LLDESC(A)
2) PUSHJ P,FSGET
2) MOVSI TT,BUF2
2) HRRI TT,LLDESC(A)
2) BLT TT,-2(T)
2) MOVSI T,TXTCOD
2) HLLM T,-1(A)
2) HRRZM G,1(A)
2) AOS T,TXTNUM
2) MOVEM T,2(A)
2) HLRZ T,JLPT
2) CAIE T,PAGE
2) SKIPGE 1(T)
2) TRO F,UPDTXT
2) HRLI T,JLPT
2) MOVSM T,(A)
2) HRRM A,(T)
2) HRLZM A,JLPT
2) NDSP1: AOS DSPCNT
2) JRST DENT
2) NDTAB1: MOVE C,DSPCNT
2) LSH C,-3 ;Divide by 8.
2) ADDM C,DTBCNT ;Account for over 8 spaces.
2) SETZM DSPCNT ;Excess of spaces adsorbed by TAB.
2) AOS DSPCNT ;Account for this TAB
2) JRST DENT
2) NDSP2: AOS DSPCNT
2) IDPB C,D
******** E **** PAGE 228 LINE 32
1) LEFT0: SUB B,[1,,1]
*** E[CSP,SYS] *** PAGE 226 LINE 131
2) NDTAB2: ;THIS REQUIRES SOME FIXING.
2) NDDMP2:
2) DDMP2: JRST JDFIN ; THIS REQUIRES SOME FIXING*****
2) NDDSP1: JRST 4,. ;On NULL
2) JRST 4,. ;On BS.
2) JRST NDCR1 ;On CR.
2) JRST 4,. ;On LF
2) JRST NDTAB1 ;On TAB
2) JRST 4,. ;On FORM.
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 228,226
2) JRST 4,. ;On ALT.
2) NDDSP2: JRST 4,. ;On NULL
2) JRST 4,. ;On BS.
2) JRST NDDMP2 ;On CR.
2) JRST 4,. ;On LF
2) JRST NDTAB2 ;On TAB
2) JRST 4,. ;On FORM.
2) JRST 4,. ;On ALT.
2) LEFT0: SUB B,[1,,1]
******** E **** PAGE 228 LINE 32
1) ;MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
*** E[CSP,SYS] *** PAGE 227 LINE 1
2) ;CENT,ALINE:
2) ALINE: SORRY ALINE has not been implemented.
2) POPJ P,
2) TRO F,NEG ;Want it treated as JFILL in JDUMP
2) TRZ F,CEN ;But not like CENTER
2) JRST CENT ;BUT OK at start
2) CENTER: SORRY XCENTER has not been implemented.
2) POPJ P,
2) TRO F,CEN!NEG ;Set CENTER flag and JFILL indicator
2) CENT: MOVE T,RMAR
2) SUB T,LMAR
2) ADDI T,1
2) MOVEM T,JSIZE
2) SETZB B,G
2) TRO F,NEG ;So jdump will treat data as JFILL.
2) CENT1: ILDB C,A
2) CAIN C,40 ;Look for spaces
2) JRST CENT1 ;Eat them up.
2) CAIN C,11 ;Look for TAB's
2) JRST CENT1 ;Eat them up also.
2) CAIE C,15 ;Is it an empty line
2) JRST .+4 ;No.
2) MOVEI T,0 ;Yes, so
2) IDPB T,D ;put in a null
2) JRST CENT4 ;Write it out
2) AOS B
2) CENT2: IDPB C,D ;Save real text
2) ILDB C,A
2) CAIE C,15 ;Watch out for the CR.
2) AOJA B,CENT2 ;There may be more
2) MOVEI T,0
2) IDPB T,D ;End with a NULL
2) TRNN F,CEN ;Test for CENTER flag
2) JRST ALIN ;Go to ALINE code
1) E vs. 2) E[CSP,SYS] SRCCOM 10-21-74 10:11 PAGES 228,227
2) SUB B,JSIZE
2) LSH B,-1
2) JRST ALIN1
2) ALIN: MOVE B,LMAR
2) MOVEM B,TMPMAR
2) ALIN1: HRLZ B,B ;Put negative value in left half.
2) MOVE D,[440700,,BUF]
2) MOVE A,[440700,,BUF2]
2) MOVEI T,11 ;Start with TABs
2) CAMLE B,[777767,,0] ;Are any needed?
2) JRST .+4 ;No
2) IDPB T,A ;Yes
2) ADD B,[7,,0] ;Counting position in left half
2) AOBJN B,.-4 ;and characters in right half.
2) MOVEI T,40
2) JUMPGE B,CENT3
2) IDPB T,A
2) AOBJN B,.-1
2) CENT3: ILDB C,D
2) JUMPE C,CENT4
2) IDPB C,A
2) AOJA B,CENT3
2) SUB B,=118
2) JUMPLE B,CENT4
2) ADD B,TMPMAR
2) SORRY one line had to be shifted left!
2) JRST ALIN1
2) CENT4: PUSHJ P,JDUMP
2) PUSHJ P,NXTLIN
2) JRST CENT
2) POPJ P,
2) ;MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS